;;;dd

(defun svn-update()
  "Svn update"
  (interactive)
  (let ((cmd (concat "TortoiseProc.exe /command:update /path:\"" buffer-file-name "\" /closeonend:0")))
    (message cmd)
    (shell-command cmd)))

    (defun svn-commit()
      "Svn commit"
      (interactive)
      (let ((cmd (concat "TortoiseProc.exe /command:commit /path:\"" buffer-file-name "\" /closeonend:0")))
        (message cmd)
      (shell-command cmd)))

    ;;SVN diff
    (defun svn-diff()
      "Svn diff"
      (interactive)
      (let ((cmd (concat "TortoiseProc.exe /command:diff /path:\"" buffer-file-name "\" /closeonend:0")))
        (message cmd)
        (shell-command cmd)))

(defun tortoisesvn-mode ())

(provide 'tortoisesvn-mode)

;;; tortoisesvn-model.el ends here


